home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 03 - 1987 / 03.02 Feb 87 / Basic Benchmarks / Math Operations / Subtract < prev   
Encoding:
Text File  |  1986-10-31  |  491 b   |  28 lines  |  [TEXT/MSBB]
  1. PRINT "Single Prec Subtraction"
  2. PRINT "100,000 Iterations"
  3.  
  4. start! = TIMER   ' calculate the overhead!
  5. FOR i% = 1 TO 10000
  6.     FOR j% = 1 TO 10
  7.     NEXT j%
  8. NEXT i%
  9. finish! = TIMER
  10. overhead! = finish! - start!
  11.  
  12. start! = TIMER
  13. FOR i% = 1 TO 10000
  14.     FOR j% = 1 TO 10
  15.         c = 3.1415- 1.2345
  16.     NEXT j%
  17. NEXT i%
  18.  
  19. finish! = TIMER
  20.  
  21. PRINT "finish! = ";finish!
  22. PRINT "start!  = ";start!
  23. PRINT "overhead! = ";overhead!
  24.  
  25. PRINT ((finish! - start!)-overhead!); " seconds"
  26. WHILE INKEY$ = "" : WEND
  27.  
  28.